Shareware Grab Bag/Shareware Grab Bag.iso/003/db3plsar.arc/SALES.PRG

Text File | 1986-08-04 | 3.2 KB | 103 lines

********************************** (SALES.PRG)
CLEAR
@ 2,31 SAY 'Just a moment '
USE SALES
STORE 0.00 TO MSR,MCR,MCH,MCREDAR,MSTCSH,MCCASH
DO WHILE .T.
   SET TALK OFF
   SUM ì
STORE_RING,COPY_RING,CHARGES,CREDITS_AR,STORE_CASH,COPY_CASHì
 TO MSR,MCR,MCH,MCREDAR,MSTCSH,MCCASH
   SUM STORE_RING+COPY_RING TO RINGS
   SUM CREDITS_AR+STORE_CASH+COPY_CASH TO MDEPO
   SUM STORE_CASH+COPY_CASH TO ALLCASH
   SUM STORE_CASH+COPY_CASH+CHARGES TO NEWSALES
   AVERAGE ì
STORE_RING,COPY_RING,CHARGES,CREDITS_AR,STORE_CASH,COPY_CASH TO ì
ASR,ACR,ACHG,ACRED,ASC,ACC
   GO BOTTOM
   STORE DATE TO MDATE
   @ 2,0 CLEAR
   @ 3,0 SAY 'Store rings '
   @ 3,28 SAY MSR PICTURE '9,999'
   @ 3,50 SAY 'Average store ring '
   @ 3,77 SAY STR(ASR,3,0)
   @ 4,0 SAY 'Copy center rings '
   @ 4,30 SAY STR(MCR,3,0)
   @ 4,50 SAY 'Average copy ring '
   @ 4,77 SAY STR(ACR,3,0)
   @ 5,0 SAY 'Total rings '
   @ 5,28 SAY RINGS PICTURE '9,999'
   @ 6,0 SAY '--------------------------------------------------------------------------------'
   @ 7,0 SAY 'Charges to A/R '
   @ 7,24 SAY MCH PICTURE '99,999.99'
   @ 7,50 SAY 'Average charge day'
   @ 7,71 SAY ACHG PICTURE '99,999.99'
   @ 8,0 SAY '--------------------------------------------------------------------------------'
   @ 9,0 SAY 'Credits (A/R recieved) '
   @ 9,24 SAY MCREDAR PICTURE '99,999.99'
   @ 9,50 SAY 'Average A/R recieved '
   @ 9,71 SAY ACRED PICTURE '99,999.99'
   @ 10,0 SAY 'Store cash sales '
   @ 10,24 SAY MSTCSH PICTURE '99,999.99'
   @ 10,50 SAY 'Average store day '
   @ 10,74 SAY STR(ASC,6,2)
   @ 11,0 SAY 'Copy center cash sales '
   @ 11,24 SAY MCCASH PICTURE '99,999.99'
   @ 11,50 SAY 'Average copy day '
   @ 11,74 SAY STR(ACC,6,2)
   @ 12,0 SAY 'Total cash at counters '
   @ 12,24 SAY ALLCASH PICTURE '99,999.99'
   @ 13,0 SAY '                        ---------'
   @ 14,0 SAY 'Deposits to bank '
   @ 14,24 SAY MDEPO PICTURE '99,999.99'
   @ 14,50 SAY 'Cash sales+charges'
   @ 14,71 SAY NEWSALES PICTURE '99,999.99'
   @ 9,34 SAY CHR(27)
   @ 12,34 SAY CHR(27)
   @ 9,35 SAY CHR(205)
   @ 9,36 SAY CHR(205)
   @ 9,37 SAY CHR(187)
   @ 12,35 SAY CHR(205)
   @ 12,36 SAY CHR(205)
   @ 12,37 SAY CHR(188)
   @ 10,37 SAY CHR(186)
   @ 11,37 SAY CHR(186)
   @ 12,37 SAY CHR(185)
   @ 13,37 SAY CHR(186)
   @ 14,37 SAY CHR(188)
   @ 14,36 SAY CHR(205)
   @ 14,35 SAY CHR(205)
   @ 14,34 SAY CHR(27)
   @ 15,0 SAY ì
'--------------------------------------------------------------------------------'
   @ 17,25 SAY 'Do you want to enter a day? '
   @ 17,62 SAY 'Last date'
   @ 17,72 SAY MDATE
   ?
   WAIT '                                     ? ' TO OPTION
   IF OPTION='N'
      RETURN
   ENDIF
   SET CONFIRM ON
   @ 2,0 CLEAR
   APPEND BLANK
   @ 3,1 SAY 'Date ' GET DATE
   @ 5,1 SAY 'Store rings ' GET STORE_RING
   @ 7,1 SAY 'Copy center rings ' GET COPY_RING
   @ 9,1 SAY 'Charges ' GET CHARGES
   @ 11,1 SAY 'Credits/AR ' GET CREDITS_AR
   @ 13,1 SAY 'Store cash sales ' GET STORE_CASH
   @ 15,1 SAY 'Copy center cash sales ' GET COPY_CASH
   READ
   @ 20,1 SAY 'Is OK? '
   ?
   WAIT ' ? ' TO  OPTION
   IF OPTION='N'
      EDIT RECNO()
   ENDIF
   SET CONFIRM OFF
   CLEAR
   RETURN
ENDDO